home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / comm / term / AmiTEL310.lha / rexx / Amigatel.amtl next >
Text File  |  1996-10-20  |  1KB  |  48 lines
  1. /*-------------------------------------*/
  2. /* Amigatel.rexx v1.2    (c) 1996 Ldfa */
  3. /*                                     */
  4. /* Script de connection sur le serveur */
  5. /*   Amigatel en T2 pour AmiTEL 3.0    */
  6. /*                                     */
  7. /*-------------------------------------*/
  8.  
  9. Envoi        = '13 41'x
  10. Retour        = '13 42'x
  11. Repetition    = '13 43'x
  12. Guide        = '13 44'x
  13. Annulation    = '13 45'x
  14. Sommaire    = '13 46'x
  15. Correction    = '13 47'x
  16. Suite        = '13 48'x
  17.  
  18. Login  = "Mon pseudo"            /* Inscrire ici votre pseudonyme */
  19. Passwd = "Mon mot de passe"        /* et votre mot de passe         */
  20.  
  21. address AMITEL_REXX            /* Nom du Port ARexx d'AmiTEL */
  22.  
  23. options results
  24.  
  25. TIMEOUT 60                /* Temps d'attente maximum */
  26.  
  27. WAIT "service:"                /* Attend 'service:' */
  28. if RC ~= 0 then                /* Si temps d'attente dépassé */
  29.    do
  30.       REQINFO "Le serveur ne répond pas!"    /* Affiche Resquester */
  31.       exit                    /* Fin du programme */
  32.    end
  33.  
  34. SEND "AMIGATEL" || Envoi        /* Envoi le nom du serveur */
  35.  
  36. WAIT "Pseudo"                /* Attend 'Pseudo' */
  37. if RC ~= 0 then                /* Si temps d'attente dépassé */
  38.    do
  39.       REQINFO "Le serveur ne répond pas!"    /* Affiche Resquester */
  40.       exit                    /* Fin du programme */
  41.    end
  42.  
  43. SEND Login || Envoi            /* Envoi pseudonyme */
  44.  
  45. DELAY 3                    /* Attend 3 secondes */
  46.  
  47. SEND Passwd || Envoi            /* Envoi mot de passe */
  48.